home *** CD-ROM | disk | FTP | other *** search
- object ProgramForm: TProgramForm
- Left = 233
- Top = 152
- HelpContext = 20
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
- BorderStyle = bsDialog
- Caption = 'Auto Start Manager - Program Definition'
- ClientHeight = 373
- ClientWidth = 522
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -10
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poDefaultPosOnly
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label10: TLabel
- Left = 8
- Top = 32
- Width = 55
- Height = 13
- Caption = 'Last tested:'
- end
- object Label11: TLabel
- Left = 112
- Top = 32
- Width = 168
- Height = 13
- Caption = '< date >'
- end
- object PageControl1: TPageControl
- Left = 4
- Top = 7
- Width = 510
- Height = 336
- ActivePage = ProgramTab
- TabOrder = 0
- object ProgramTab: TTabSheet
- HelpContext = 20
- Caption = 'Program'
- object Label4: TLabel
- Left = 18
- Top = 10
- Width = 31
- Height = 13
- Caption = 'Name:'
- end
- object Title: TLabel
- Left = 84
- Top = 10
- Width = 45
- Height = 13
- Caption = '<name>'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object GroupBox1: TGroupBox
- Left = 7
- Top = 29
- Width = 488
- Height = 129
- Caption = ' Program: '
- TabOrder = 0
- object Label1: TLabel
- Left = 9
- Top = 21
- Width = 42
- Height = 13
- Caption = 'Program:'
- end
- object Label2: TLabel
- Left = 9
- Top = 75
- Width = 36
- Height = 13
- Caption = 'Start in:'
- end
- object Label3: TLabel
- Left = 9
- Top = 102
- Width = 47
- Height = 13
- Caption = 'Run style:'
- end
- object Label5: TLabel
- Left = 9
- Top = 48
- Width = 56
- Height = 13
- Caption = 'Parameters:'
- end
- object ModuleName: TEdit
- Left = 77
- Top = 18
- Width = 330
- Height = 21
- HelpContext = 21
- TabOrder = 0
- OnChange = DataChange
- end
- object StartDirectory: TEdit
- Left = 78
- Top = 72
- Width = 330
- Height = 21
- HelpContext = 24
- TabOrder = 2
- OnChange = DataChange
- end
- object RunWindow: TComboBox
- Left = 78
- Top = 99
- Width = 118
- Height = 21
- HelpContext = 25
- Style = csDropDownList
- DropDownCount = 3
- ItemHeight = 13
- Items.Strings = (
- 'Normal'
- 'Minimised'
- 'Maximised')
- TabOrder = 3
- OnChange = DataChange
- end
- object CmdBrowseButton: TButton
- Left = 419
- Top = 18
- Width = 61
- Height = 20
- HelpContext = 22
- Caption = 'Browse...'
- TabOrder = 4
- OnClick = CmdBrowseButtonClick
- end
- object StartBrowseButton: TButton
- Left = 419
- Top = 73
- Width = 61
- Height = 20
- HelpContext = 24
- Caption = 'Browse...'
- TabOrder = 5
- OnClick = StartBrowseButtonClick
- end
- object CommandLine: TEdit
- Left = 77
- Top = 46
- Width = 330
- Height = 21
- HelpContext = 23
- TabOrder = 1
- OnChange = DataChange
- end
- end
- object GroupBox2: TGroupBox
- Left = 7
- Top = 172
- Width = 488
- Height = 126
- Caption = ' Configuration: '
- TabOrder = 1
- object ConfigLabel: TLabel
- Left = 168
- Top = 23
- Width = 103
- Height = 13
- Caption = 'Specific Configuration'
- Enabled = False
- end
- object UserLabel: TLabel
- Left = 168
- Top = 52
- Width = 74
- Height = 13
- Caption = 'Specific Userid '
- Enabled = False
- end
- object ConfigComboBox: TComboBox
- Left = 280
- Top = 19
- Width = 163
- Height = 21
- HelpContext = 26
- Style = csDropDownList
- Enabled = False
- ItemHeight = 13
- Sorted = True
- TabOrder = 1
- OnChange = DataChange
- end
- object AllConfigs: TCheckBox
- Left = 16
- Top = 22
- Width = 107
- Height = 14
- HelpContext = 26
- Caption = 'All configurations'
- State = cbChecked
- TabOrder = 0
- OnClick = AllConfigsClick
- end
- object AllUsers: TCheckBox
- Left = 16
- Top = 50
- Width = 97
- Height = 17
- HelpContext = 27
- Caption = 'All Users'
- State = cbChecked
- TabOrder = 2
- OnClick = AllUsersClick
- end
- object UserComboBox: TComboBox
- Left = 280
- Top = 48
- Width = 163
- Height = 21
- HelpContext = 27
- Enabled = False
- ItemHeight = 13
- TabOrder = 3
- OnChange = DataChange
- OnExit = UserComboBoxExit
- end
- object APMRadioGroup: TRadioGroup
- Left = 16
- Top = 80
- Width = 457
- Height = 33
- HelpContext = 28
- Caption = ' Power State: '
- Columns = 3
- ItemIndex = 0
- Items.Strings = (
- 'Always'
- 'Mains Only'
- 'Battery Only')
- TabOrder = 4
- OnClick = DataChange
- end
- end
- end
- object FrequencyTab: TTabSheet
- HelpContext = 18
- Caption = 'Frequency'
- object Label14: TLabel
- Left = 34
- Top = 20
- Width = 31
- Height = 13
- Caption = 'Name:'
- end
- object FreqTitle: TLabel
- Left = 132
- Top = 20
- Width = 45
- Height = 13
- Caption = '<name>'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object GB_days: TGroupBox
- Left = 132
- Top = 48
- Width = 357
- Height = 49
- HelpContext = 16
- Caption = ' Days of Week '
- TabOrder = 1
- object CB_day1: TCheckBox
- Left = 16
- Top = 20
- Width = 53
- Height = 17
- Caption = 'Mon '
- TabOrder = 0
- end
- object CB_day2: TCheckBox
- Left = 63
- Top = 20
- Width = 53
- Height = 17
- Caption = 'Tue'
- TabOrder = 1
- end
- object CB_day3: TCheckBox
- Left = 111
- Top = 20
- Width = 53
- Height = 17
- Caption = 'Wed'
- TabOrder = 2
- end
- object CB_day4: TCheckBox
- Left = 158
- Top = 20
- Width = 53
- Height = 17
- Caption = 'Thur'
- TabOrder = 3
- end
- object CB_day5: TCheckBox
- Left = 205
- Top = 20
- Width = 53
- Height = 17
- Caption = 'Fri'
- TabOrder = 4
- end
- object CB_day6: TCheckBox
- Left = 253
- Top = 20
- Width = 53
- Height = 17
- Caption = 'Sat'
- TabOrder = 5
- end
- object CB_day7: TCheckBox
- Left = 300
- Top = 20
- Width = 53
- Height = 17
- Caption = 'Sun'
- TabOrder = 6
- end
- end
- object CB_days: TCheckBox
- Left = 16
- Top = 68
- Width = 97
- Height = 17
- HelpContext = 16
- Caption = 'Run every day'
- TabOrder = 0
- OnClick = CB_daysClick
- end
- object CB_times: TCheckBox
- Left = 16
- Top = 140
- Width = 101
- Height = 17
- HelpContext = 15
- Caption = 'Run at all times'
- TabOrder = 2
- OnClick = CB_timesClick
- end
- object GB_times: TGroupBox
- Left = 132
- Top = 120
- Width = 357
- Height = 49
- HelpContext = 15
- Caption = ' Time of Day '
- TabOrder = 3
- object Label9: TLabel
- Left = 16
- Top = 22
- Width = 97
- Height = 13
- Caption = 'Run only if between:'
- end
- object Label12: TLabel
- Left = 200
- Top = 22
- Width = 18
- Height = 13
- Caption = 'and'
- end
- object TimeFrom: TMaskEdit
- Left = 140
- Top = 18
- Width = 37
- Height = 21
- EditMask = '!00:00;0;_'
- MaxLength = 5
- TabOrder = 0
- OnExit = TimeCheck
- end
- object TimeTo: TMaskEdit
- Left = 240
- Top = 18
- Width = 37
- Height = 21
- EditMask = '!00:00;0;_'
- MaxLength = 5
- TabOrder = 1
- OnExit = TimeCheck
- end
- end
- object CB_freq: TCheckBox
- Left = 16
- Top = 212
- Width = 105
- Height = 17
- HelpContext = 17
- Caption = 'Run every startup'
- TabOrder = 4
- OnClick = CB_freqClick
- end
- object GB_freq: TGroupBox
- Left = 132
- Top = 192
- Width = 357
- Height = 49
- HelpContext = 17
- Caption = ' Frequency '
- TabOrder = 5
- object Label13: TLabel
- Left = 16
- Top = 22
- Width = 110
- Height = 13
- Caption = 'Mimimum between runs'
- end
- object FreqCount: TMaskEdit
- Left = 144
- Top = 18
- Width = 29
- Height = 21
- EditMask = '099;0; '
- MaxLength = 3
- TabOrder = 0
- end
- object CB_frequnits: TComboBox
- Left = 188
- Top = 18
- Width = 145
- Height = 21
- ItemHeight = 13
- Items.Strings = (
- 'Minutes'
- 'Hours'
- 'Days'
- 'Weeks'
- 'Months'
- 'Years')
- TabOrder = 1
- Text = 'Minutes'
- end
- end
- end
- object StatisticsTab: TTabSheet
- HelpContext = 19
- Caption = 'Statistics'
- object Label7: TLabel
- Left = 42
- Top = 112
- Width = 55
- Height = 13
- Caption = 'Last tested:'
- end
- object Tested: TLabel
- Left = 148
- Top = 112
- Width = 51
- Height = 13
- Caption = '< date >'
- end
- object Label6: TLabel
- Left = 42
- Top = 64
- Width = 70
- Height = 13
- Caption = 'Last executed:'
- end
- object Executed: TLabel
- Left = 148
- Top = 64
- Width = 51
- Height = 13
- Caption = '< date >'
- end
- object Label8: TLabel
- Left = 42
- Top = 160
- Width = 33
- Height = 13
- Caption = 'Result:'
- end
- object ExecMsg: TLabel
- Left = 148
- Top = 160
- Width = 289
- Height = 137
- AutoSize = False
- Caption = 'xxxxxxx'
- WordWrap = True
- end
- object Label16: TLabel
- Left = 42
- Top = 26
- Width = 31
- Height = 13
- Caption = 'Name:'
- end
- object StatTitle: TLabel
- Left = 148
- Top = 26
- Width = 45
- Height = 13
- Caption = '<name>'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- end
- end
- object ProgramOkButton: TButton
- Left = 317
- Top = 349
- Width = 61
- Height = 20
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 1
- end
- object ProgramCancelButton: TButton
- Left = 385
- Top = 349
- Width = 61
- Height = 20
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 2
- end
- object ProgramHelpButton: TButton
- Left = 453
- Top = 349
- Width = 61
- Height = 20
- Caption = 'Help'
- TabOrder = 3
- OnClick = ProgramHelpButtonClick
- end
- object OpenDialog: TOpenDialog
- FileEditStyle = fsEdit
- Filter = 'Executables|*.exe;*.com;*.bat:*.pif|All files|*.*'
- Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofShareAware]
- Title = 'Select program to execute'
- Left = 16
- Top = 346
- end
- end
-